home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / gnu / gawk / gawk213b.zoo / test / numfunc.awk < prev    next >
Text File  |  1991-04-06  |  297b  |  20 lines
  1. BEGIN {
  2.     y = 8
  3.     x = 1
  4.     while (x < 256) {
  5.         print "arctan", y/x, atan2(y , x)
  6.         x += x
  7.     }
  8.     print
  9.     pi8 = atan2(1, 1) / 2
  10.     arg = 0
  11.     for (i = 0; i <= 8; i++) {
  12.         print "cos sin", arg, cos(arg), sin(arg)
  13.         arg += pi8
  14.     }
  15.     print
  16.     for (i = -5; i<= 5; i++) {
  17.         print "exp log", i, exp(i), log(exp(i))
  18.     }
  19. }
  20.